inherited sprAreas: TsprAreas
  Left = 487
  Top = 197
  Caption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1088#1072#1081#1086#1085#1086#1074
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    Top = 25
    Height = 529
    inherited PageControl1: TPageControl
      Height = 529
      inherited tsTab: TTabSheet
        inherited GroupBox3: TGroupBox
          Height = 501
          inherited dbgRefer: TDBGridEh
            Height = 484
          end
        end
      end
      inherited tsForm: TTabSheet
        inherited GroupBox2: TGroupBox
          Top = 0
          Width = 784
          Height = 501
          Align = alClient
          object Label1: TLabel [0]
            Left = 44
            Top = 31
            Width = 80
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1048#1044
          end
          object Label2: TLabel [1]
            Left = 44
            Top = 55
            Width = 80
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1053#1072#1079#1074#1072#1085#1080#1077
          end
          object Label3: TLabel [2]
            Left = 44
            Top = 79
            Width = 80
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1054#1073#1083#1072#1089#1090#1100
          end
          object Label4: TLabel [3]
            Left = 44
            Top = 103
            Width = 80
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1050#1086#1076' '#1088#1072#1081#1086#1085#1072
          end
          inherited pnlButtons: TPanel
            Top = 468
            Width = 780
            inherited SpeedButton1: TSpeedButton
              Left = 581
            end
            inherited SpeedButton2: TSpeedButton
              Left = 683
            end
          end
          object dbeID: TDBEditEh
            Left = 132
            Top = 28
            Width = 121
            Height = 19
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            DataField = 'ID'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            TabOrder = 1
            Visible = True
          end
          object dbeName: TDBEditEh
            Left = 132
            Top = 52
            Width = 121
            Height = 19
            AlwaysShowBorder = True
            DataField = 'AREA_NAME'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            TabOrder = 2
            Visible = True
          end
          object dbeRegion: TDBEditEh
            Left = 132
            Top = 76
            Width = 121
            Height = 19
            AlwaysShowBorder = True
            DataField = 'REGION'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            TabOrder = 3
            Visible = True
          end
          object dbeCode: TDBEditEh
            Left = 132
            Top = 100
            Width = 121
            Height = 19
            AlwaysShowBorder = True
            DataField = 'CODE'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            TabOrder = 4
            Visible = True
          end
        end
      end
    end
  end
  inherited GroupBox1: TGroupBox
    Height = 0
    Visible = False
  end
  inherited dsRefer: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE RTOWN_AREAS'
      'SET '
      '    AREA_NAME = :AREA_NAME,'
      '    REGION = :REGION,'
      '    CODE = :CODE'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    RTOWN_AREAS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO RTOWN_AREAS('
      '    ID,'
      '    AREA_NAME,'
      '    REGION,'
      '    CODE'
      ')'
      'VALUES('
      '    :ID,'
      '    :AREA_NAME,'
      '    :REGION,'
      '    :CODE'
      ')'
      'returning ID')
    RefreshSQL.Strings = (
      'SELECT'
      '    ID,'
      '    AREA_NAME,'
      '    REGION,'
      '    CODE'
      'FROM'
      '    RTOWN_AREAS '
      ''
      ' WHERE '
      '        RTOWN_AREAS.ID = :OLD_ID'
      '    ')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    AREA_NAME,'
      '    REGION,'
      '    CODE'
      'FROM'
      '    RTOWN_AREAS ')
    object dsReferID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'ID'
      ReadOnly = True
    end
    object dsReferAREA_NAME: TFIBStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077
      DisplayWidth = 20
      FieldName = 'AREA_NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object dsReferREGION: TFIBStringField
      DisplayLabel = #1054#1073#1083#1072#1089#1090#1100
      DisplayWidth = 20
      FieldName = 'REGION'
      Size = 60
      EmptyStrToNull = True
    end
    object dsReferCODE: TFIBStringField
      DisplayLabel = #1050#1086#1076' '#1088#1072#1081#1086#1085#1072
      FieldName = 'CODE'
      Size = 10
      EmptyStrToNull = True
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'spr_Areas'
  end
end
